<script>on mouseUpAnswer "Create new card or replace this one?" with¬"Cancel" or "Replace" or "New"if it is "Cancel" then exit mouseUpif it is "New" then doMenu "New Card"get fileName("STAK")if it is empty then exit mouseUpput it into meend mouseup</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>133</left>
<top>69</top>
<right>196</right>
<bottom>88</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Check</name>
<script>on mouseUpglobal locals,stops,xternals,globs,hands,funcsput empty into globsput empty into handsput empty into funcsput empty into xternalsput empty into localsput fld "globals" of cd "knowns" into stopsput fld "the Stack" into theStakset the lockscreen to trueset the lockmessages to trueset the lockrecent to trueemptyfieldspush cardgo theStakget the script of stackCheckScript itrepeat with b = 1 to the number of bggo cd 1 of bg bget the script of bgCheckScript itrepeat with bb = 1 to the number of bg btnsget the script of bg btn bbCheckScript itend repeatrepeat with bf = 1 to the number of fldsget the script of fld bfCheckScript itend repeatend repeatrepeat with c = 1 to the number of cdsgo cd cget the script of cardCheckScript itrepeat with cb = 1 to the number of cd btnsget the script of btn cbCheckScript itend repeatrepeat with cf = 1 to the number of card fieldsget the script of cd fld cfCheckScript itend repeatend repeatpop cardput globs into fld "Globals"put empty into globsremoveDups "Globals"put hands into fld "Handlers"put empty into handsremoveDups "handlers"put funcs into fld "Functions"put empty into funcsremoveDups "Functions"put xternals into fld "Externals"put empty into xternalsremoveDups "Externals"secondPass "Externals"if the hilite of bg btn id 8 then removeSysMsgshide the msgend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>211</left>
<top>61</top>
<right>457</right>
<bottom>77</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Include system message handlers</name>
<script>on mouseUpset the hilite of bg btn id 8 to not the hilite of meend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>211</left>
<top>76</top>
<right>495</right>
<bottom>92</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DonΓÇÖt include system message handlers</name>
<script>on mouseUpset the hilite of bg btn id 7 to not the hilite of meend mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>267</left>
<top>114</top>
<right>393</right>
<bottom>319</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Courier</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Functions</name>
<script></script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>178</left>
<top>320</top>
<right>207</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30557</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpgo cd 1end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>228</left>
<top>319</top>
<right>254</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseUpvisual effect wipe rightgo to prev cardend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>256</left>
<top>319</top>
<right>281</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1013</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpvisual wipe leftgo to next cardend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>394</left>
<top>114</top>
<right>511</right>
<bottom>319</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Courier</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>externals</name>
<script>on mouseUpset the locktext of me to falseclick at the clicklocclick at the clicklocif the selection is empty then cleanExitselect the selectedlineif char 1 of the selection is "ΓÇó" then cleanExitselect before the selectedlinetype "ΓÇó"set the locktext of me to trueend mouseUpon cleanExitset the locktext of me to trueexit to HyperCardend cleanExit</script>
</part>
<name></name>
<script>on removeSysMsgsrepeat with l = the number of lines in fld "Handlers" down to 1set the cursor to busyget line l of fld "Handlers"if it & return is in fld "Handlers" of cd "Knowns" thendelete line l of fld "Handlers"end ifend repeatend removeSysMsgson CollectUnknowns theLineglobal locals,stops,xternals,globs,hands,funcsrepeat with w = 1 to the number of words in theLineset the cursor to busyget word w of theLineif it contains quote then next repeatif it is "into" thenadd 1 to wput word w of theLine & return after localsexit repeatend ifif it is "with" thenadd 1 to wput word w of theLine & return after localsadd 3 to wnext repeatend ifif ItIsANumber(it) then next repeatif (char 1 to 2 of it is "-"&"-") then exit repeatif char 1 of it is "(" then delete char 1 of itif last char of it is ")" then delete last char of itrepeat until offset ("(",it) = 0put return into char offset("(",it) of itend repeatput return after itif it is in stops then next repeatelse put it after xternalsend repeatend CollectUnknownsfunction ItIsANumber aWordrepeat with c = 1 to the number of chars in aWordif char c of aWord is not in "1234567890." then return falseend repeatreturn trueend ItIsANumberon emptyFieldsput empty into fld "handlers"put empty into fld "globals"put empty into fld "externals"put empty into fld "functions"end emptyFieldson removeDups aFielddelete last char of fld aField -- the return charput sortLines(fld aField) into fld aFieldrepeat with i = the number of lines in fld aField down to 2set the cursor to busyif line i of fld aField =line i-1 of fld aField thendelete line i of fld aFieldend ifend repeatput return after fld aFieldend removeDupsfunction Capitalize aWordput LowerToUpper(char 1 of aWord) into char 1 of aWordreturn aWordend Capitalizeon CheckScript aScriptput the number of lines in aScript into Linenumrepeat with i = 1 to Linenumput LineNum - iput line i of aScript into theLineif char 1 to 2 of word 1 of theLine is "-"&"-" then next repeatif word 1 of theLine is "end" then next repeatif word 1 of theLine is "on" thenaddHandler theLineelse if word 1 of theLine is "function" thenaddFunction theLineelse if word 1 of theLine is "global" thenAddGlobals theLineelseput spacePad(theLine) into theLineCollectUnknowns theLineend ifend repeatend CheckScriptfunction spacepad aLinerepeat with c = the number of chars in aLine down to 1set the cursor to busyif char c of aLine is in "-=+*/¬" thenput space after char c of aLineput space before char c of aLineend ifend repeatreturn aLineend spacePadon SecondPass aFieldglobal localsrepeat with l = the number of lines in fld aField down to 1get line l of fld aFieldput return after itif it is in fld "Globals" then delete line l of fld aFieldelse if it is in fld "Functions" then delete line l of fld aFieldelse if it is in fld "Handlers" then delete line l of fld aFieldelse if it is in locals then delete line l of fld aFieldelse if it is in fld "globals" of cd "Knowns" then delete¬line l of fld aFieldend repeatend SecondPasson AddFunction Alineglobal locals,stops,xternals,globs,hands,funcsput word 3 of ALine into paramsput Capitalize(word 2 of Aline) & return after funcsAddLocals paramsend AddFunctionon AddLocals paramsglobal locals,stops,xternals,globs,hands,funcsrepeat with i = 1 to the number of items in paramsput (item i of params) & return after localsend repeatend AddLocalson AddGlobals Alineglobal locals,stops,xternals,globs,hands,funcsput word 2 of Aline into theGlobalsrepeat with i = 1 to the number of items in theGlobalsput Capitalize(item i of theGlobals) & return after globsend repeatend AddGlobalson AddHandler Alineglobal locals,stops,xternals,globs,hands,funcsput word 3 of ALine into paramsaddLocals paramsput word 2 of Aline & return into theWordput Capitalize(theWord) after handsend AddHandlerfunction ThereInFull theword,aListif theWord is in aList thenrepeat with i = 1 to the number of lines in aListif theword is line i of aList then return trueend repeatend ifreturn falseend ThereInFull</script>
